(LAP GFUN1UREAD SUBR) 
	(MOVE 1 (SPECIAL A)) 
	(JCALL 1 (E *EVAL)) 
	NIL 

(LAP UREAD FSUBR) 
	(JSP 6 SPECBIND) 
	(0 0 (SPECIAL A)) 
	(PUSH P 1) 
	(PUSH P (C 0 0 (QUOTE FOO) 0)) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
TAG1 	(HLRZ@ 1 -3 P) 
	(CALL 1 (E ATOM)) 
	(JUMPN 1 TAG11) 
	(HLRZ@ 1 -3 P) 
	(HRRZ@ 1 1) 
	(CALL 1 (E ATOM)) 
	(JUMPE 1 TAG10) 
TAG11 	(HLRZ@ 1 -3 P) 
	(MOVEM 1 0 P) 
	(JRST 0 TAG7) 
TAG10 	(HLRZ@ 1 -3 P) 
	(MOVEM 1 -1 P) 
	(HRRZ@ 1 -3 P) 
	(MOVEM 1 -3 P) 
	(HLRZ@ 1 1) 
	(MOVEM 1 0 P) 
TAG12 
TAG7 	(MOVE 1 -1 P) 
	(JUMPE 1 TAG15) 
	(JRST 0 TAG14) 
TAG15 	(MOVEI 1 (QUOTE DSK:)) 
	(MOVEM 1 -1 P) 
TAG16 
TAG14 	(MOVE 1 0 P) 
	(CALL 1 (E NCONS)) 
	(MOVE 2 -1 P) 
	(CALL 2 (E XCONS)) 
	(MOVE 2 -2 P) 
	(CALL 2 (E XCONS)) 
	(CALL 17 (E INPUT)) 
	(MOVEI 2 (QUOTE NIL)) 
	(MOVE 1 -2 P) 
	(CALL 2 (E INC)) 
TAG2 	(MOVEI 1 (QUOTE ((READ)))) 
	(CALL 17 (E ERRSET)) 
	(MOVEM 1 (SPECIAL A)) 
	(CALL 1 (E ATOM)) 
	(JUMPE 1 TAG21) 
	(HRRZ@ 1 -3 P) 
	(MOVEM 1 -3 P) 
	(JUMPN 1 TAG1) 
	(MOVEI 1 (QUOTE LOADED!)) 
	(JRST 0 TAG4) 
TAG23 	(JRST 0 TAG20) 
TAG21 	(HLRZ@ 1 (SPECIAL A)) 
	(MOVEM 1 (SPECIAL A)) 
TAG25 
TAG20 	(MOVE 1 (SPECIAL A)) 
	(CAIE 1 (QUOTE COMMENT)) 
	(JRST 0 TAG30) 
	(MOVEI 1 (QUOTE COMMENT)) 
	(CALL 1 (E PRINT)) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
TAG3 	(CALL 0 (E READCH)) 
	(MOVEM 1 0 P) 
	(CAIE 1 (QUOTE ;)) 
	(JRST 0 TAG35) 
	(MOVEI 1 (QUOTE T)) 
	(JRST 0 TAG31) 
TAG35 	(JRST 0 TAG3) 
TAG31 	(SUB P (C 0 0 1 1)) 
	(JRST 0 TAG27) 
TAG30 	(MOVEI 1 (QUOTE ((GFUN1UREAD)))) 
	(CALL 17 (E ERRSET)) 
	(HLRZ@ 1 1) 
	(CALL 1 (E PRINT)) 
TAG37 
TAG27 	(JRST 0 TAG2) 
TAG4 	(SUB P (C 0 0 4 4)) 
	(JRST 0 SPECSTR) 
	NIL